home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / book boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  848b  |  22 lines
  1. 5 poke52,160:clr:gosub61000
  2. 10 sys57812"beginner's book",8,0:poke780,0:poke781,0:poke782,160:sys65493
  3. 20 print"[147]"chr$(9):sys52480:new:end
  4. 61000 poke53281,0:poke53280,0:print"[147][158]"
  5. 61010 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  6. 61020 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
  7. 61030 fori=217to242:pokei,peek(i)or128:next:poke214,5
  8. 61040 print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]
  9. 61050 [130]:[151]214,6:[151]211,4:[158]58732
  10. 61060 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  11. 61070 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
  12. 61080 [151]214,16:[151]211,4:[158]58732
  13. 61090 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  14. 61100 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
  15. 61110 a$[178]"peekvalchr$right$(NULL)(NULL)val(NULL)'(NULL)closepeek(NULL)(NULL)(NULL)":[141]61160
  16. 61120 a$[178]"by atnndrew (NULL)ittle":[141]61160
  17. 61130 a$[178]"(NULL)(NULL)peek(NULL)right$(NULL)left$valstr$close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)close#close66":[141]61160
  18. 61135 a$[178]"(NULL)ubscriptions 1-800-831-2694":[141]61160
  19. 61140 a$[178]"(len) 1989 (NULL)oftdisk":[141]61160
  20. 61150 [151]214,23:[153]:[153][163]12)"  (NULL) (NULL) atnclosestr$closeright$close(NULL)closechr$  ":[142]
  21. 61160 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
  22.